4) emf
так как png, bmp -формат хранения растровых изображений
Есть 3 высказывания
1-правда
0-лож
первое высказывания это "и" 1+0=1, 1+1=1, 0+0=0, 0+1=0.
второе высказывание это "или" 1+0=1, 1+1=1, 0+1=1.
третье высказывание это "не" 1=0, 0=1.
BEGIN
<em>writeln('Введите а');</em>
<em>writeln('Введите а');readln(a);</em>
<em>writeln('Введите а');readln(a);i := 0;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) do</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobegin</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);end;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);end;writeln(i, '- количество четных чисел, кратных трём.');</em>
END.
#include <iostream>
using namespace std;
int main()
{
int a = 0;
cin >> a;
a += 100;
cout << a << endl;
}
Program a;var d:integer;x,y:real;beginreadln(x,y);write('действие: ');readln(d);case(d) of1: x:=x+y;2: x:=x-y;3: x:=x*y;4: x:=x/y;end;write(x);end.
program a;var d:integer;m:real;beginreadln(m);write('единицы: ');readln(d);case(d) of1: write(m,'кг');2:begin m:=m/1000000; write(m,'кг');end;3:begin m:=m/1000; write(m,'кг');end;4:begin m:=m*1000; write(m,'кг');end;5:begin m:=m*100; write(m,'кг');end;end;end.
