K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

12 tháng 10 2018

var a,b,c:real;

begin

assign(input,'canh-huyen.inp'); reset(input);

assign(output,'canh-huyen.out'); rewrite(output);

read(a,b);

c:=sqr(a*a)+sqr(b*b);

write(c);

end.

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i;

int main()

{

freopen("chu_so.txt", "r",stdin);

getline(cin,st);

d=st.length();

for (i=0; i<=d; i++) 

if (48<=st[i] && st[i]<=57) cout<<st[i]<<" ";

return 0;

}

const fi='data.txt';

fo='ketqua.txt';

var f1,f2:text;

a,b,h:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b,h);

writeln(f2,0.5*h*(a+b):4:2);

close(f1);

close(f2);

end.

3 tháng 3 2021

a)

PROGRAM BAI1a;

VAR N, Tle, Tchan: integer;

BEGIN

          Write ('Nhap N =');

          Readln (N);

          If (N mod 2) = 0 Then

          Tle := N*((N - 2)/2 + 1)/2;

          Tchan := (N + 2)*((N - 2)/2 + 1)/2;

          If (N mod 2) = 1 Then

          Tle := (N + 1)*((N-1)/2 +1)/2;

          Tchan := (N + 1)*((N - 3)/2 + 1)/2;

          WRITELN ('Sle =', Sle, 'Schan =', Schan);

          READLN;

          END.

const fi='sn.inp';

fo='sn.out';

var f1,f2:text;

a,b:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

writeln(f2,a-b);

close(f1);

close(f2);

end.